www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Users/Users_Card.asp
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>充卡支付</title>
<link href="style/nav.css" rel="stylesheet" type="text/css" />
</head>
<body>
<!--#include file="../conn.asp"-->
<!--#include file="../Function/Function.asp"-->
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="100%" valign="top"><table width="690" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="43" background="images/user_top.gif"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="6%"> </td>
<td width="94%"><a href="Card.htm" target="right">充卡支付</a></td>
</tr>
</table></td>
</tr>
</table><br />
<table width="90%" border="0" align="center" cellpadding="5" cellspacing="0">
<tr>
<td bgcolor="#f7f7f7"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="login">
<tr>
<td><br>
<%Action=Trim(request("Action"))
IF Request.Cookies("YWNTUserCookie")("UserName")="" Then Action="UsersLogin"
Select Case Action
Case "UsersLogin"
call UsersLogin()
Case "Card"
call Card()
Case else
call List()
End Select
sub List()
Set Rs = server.CreateObject(YWNT_TMS_RS)
sql="select ID,UsersName from YWNT_TMS_Users where UsersName='"&Request.Cookies("YWNTUserCookie")("UserName")&"'"
Rs.open sql,conn,1,1
UsersID=Rs("ID")
UsersName=Rs("UsersName")
Rs.close
Set Rs=Nothing%>
<SCRIPT>
function formCardcheck(){
if (form.CardNumber.value=="")
{
alert('请输入充值卡号。');
form.CardNumber.focus();
return false;
}
if (form.CardPassWord.value=="")
{
alert('请输入卡号密码。');
form.CardPassWord.focus();
return false;
}
return true;
}
</SCRIPT>
<table cellspacing="0" cellpadding="0" width="66%" align="center" border="0">
<form id=form name=form onsubmit="if (!formCardcheck()) return false;" method="POST" action="Users_Card.asp?Action=Card">
<tbody>
<tr>
<td align="right" width="29%" height="30">充值卡号：</td>
<td align="left"><INPUT name=CardNumber size="20" value=""></td>
</tr>
<tr>
<td align="right" height="30">充值密码：</td>
<td align="left"><INPUT name=CardPassWord size="20" value=""></td>
</tr>
<tr>
<td align="right" height="30">充值用户： </td>
<td height="20"><%=UsersName%><input name="UsersID" type="hidden" value="<%=UsersID%>" /></td>
</tr>
<tr>
<td height="20"> </td>
<td height="20"><input type="image" name="imageField" src="images/qd_06.gif" /></td>
</tr>
</tbody>
</form>
</table>
<%end sub
sub Card()
CardNumber=Trim(Request.Form("CardNumber"))
CardPassWord=Trim(Request.Form("CardPassWord"))
UsersID=Trim(Request.Form("UsersID"))
Set Rs = server.CreateObject(YWNT_TMS_RS)
sql="select Cardtype,CardGroup,Cardunit,CardPrices from YWNT_TMS_PayCard where CardNumber='"&CardNumber&"' and CardPassWord='"&CardPassWord&"' and IsUsed=0"
Rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write"<script>alert('该充值卡不存在或者密码不正确！');history.back();</Script>"
response.end
else
Cardtype=Rs("Cardtype")
CardGroup=Rs("CardGroup")
Cardunit=Rs("Cardunit")
CardPrices=Rs("CardPrices")
end if
Rs.close
Set Rs=Nothing
Set Rs = server.CreateObject(YWNT_TMS_RS)
sql="select UsersGroup,UsersType,UsersCoin,UsersCoinDate from YWNT_TMS_Users where ID="&UsersID
Rs.open sql,conn,1,3
if Rs.eof and Rs.bof then
response.write"<script>alert('该充值帐号不存！');history.back();</Script>"
response.end
else
Select Case Cardtype
Case 0
Rs("UsersCoin")=Rs("UsersCoin") + Cardunit
Case 1
if Rs("UsersCoinDate")-now()<0 then
Rs("UsersCoinDate")=now() + Cardunit
else
Rs("UsersCoinDate")=Rs("UsersCoinDate") + Cardunit
end if
end Select
Rs("UsersGroup")=CardGroup
Rs("UsersType")=Cardtype
end if
Rs.update
conn.execute"update YWNT_TMS_PayCard set CardUsers="&UsersID&",IsUsed=1 where CardNumber='"&CardNumber&"' and CardPassWord='"&CardPassWord&"'"
Rs.close
Set Rs=Nothing
yy=year(date)
mm=month(now)
if len(mm)=1 then mm="0"&mm
dd=day(Date)
if len(dd)=1 then dd="0"&dd
ymd=yy&mm&dd
xiaoshi=right("00"&hour(time),2)
fenzhong=right("00"&minute(time),2)
miao=right("00"&second(time),2)
'生成4位随机数
Randomize
sjj=cstr(Int((8999 * Rnd) + 1000))
billno=ymd&xiaoshi&fenzhong&miao&sjj
if Cardtype=0 then
typetext="影币"
else
typetext="天"
end if
Set Rs=Server.CreateObject(YWNT_TMS_RS)
sql="select * from YWNT_TMS_PayLog"
Rs.open sql,Conn,1,3
Rs.addnew
RS("UsersName")=Request.Cookies("YWNTUserCookie")("UserName")
RS("orderid")=billno
RS("billno")=billno
RS("Payprice")=CardPrices
RS("PayName")=Cardunit&typetext&"充值卡"
RS("PayType")="充值卡充值"
RS("PayDate")=Now()
Rs.update
Rs.Close
Set Rs = Nothing
Response.Write"<table width=""90%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" &_
"<tr>" &_
"<td>已经成功地将面值"&Cardunit&typetext&""
Response.Write"的充值卡充入你的帐号。" &_
"</td></tr></table>"
end sub%>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<%call connclose()%>
</body>
</html>